home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C64 / GFX / DOODLE2.ARC / DOODLE DEMO (.txt) < prev    next >
Commodore BASIC  |  2000-06-30  |  368b  |  21 lines
  1. 100 IFI=0THENI=1:LOAD"DDMIDDLE EARTH",8,1
  2. 150 POKE55,0:POKE56,92:CLR
  3. 170 GOTO999
  4. 200 POKE53265,59
  5. 210 POKE53272,120
  6. 220 POKE56576,PEEK(56576)AND254
  7. 230 RETURN
  8. 300 POKE53265,27
  9. 310 POKE53272,21
  10. 320 POKE56576,PEEK(56576)OR1
  11. 330 RETURN
  12. 999 PRINT"[147]"
  13. 1000 PRINTTAB(10)"PRESS D TO SEE DOODLE"
  14. 1010 PRINTTAB(10)"PRESS N FOR NORMAL"
  15. 1020 PRINTTAB(10)"PRESS Q TO END PROGRAM"
  16. 1100 GETK$
  17. 1110 IFK$="D"THENGOSUB200
  18. 1120 IFK$="N"THENGOSUB300
  19. 1130 IFK$="Q"THENGOSUB300:END
  20. 1140 GOTO1100
  21.